Shareware Grab Bag/Shareware Grab Bag.iso/003/db3ar.arc/FSTATE.PRG

Text File | 1985-10-15 | 2.4 KB | 123 lines

******************************** (B:FSTATE.PRG)
CLEAR
SET HEADING OFF
STORE 0.00 TO CNET
STORE 0.00 TO INET
SET EXACT ON
SET TALK OFF
DO WHILE .T.
USE B:CUST INDEX B:ACCT
CLEAR
@ 3,25 SAY 'Want to run one statement? '
?
?
STORE ' ' TO OPTION
WAIT '                                     ?  ' TO OPTION
IF OPTION<>'Y'
RETURN
ENDIF
STORE 0.00 TO MNET
@ 2,0 CLEAR
ACCEPT '                         Which account? ' TO X
FIND &X
STORE NET TO CNET
USE B:INV
COUNT FOR ACCT=X TO MCT
GO TOP
SUM NET FOR ACCT=X TO INET
IF MCT=0
? CHR(7)
?
?
?
?
?
? 'NO INVOICES IN FILE FOR THIS ì
ACCOUNT******************************************'
?
?
?
?
LOOP
ENDIF
IF STR(CNET,9,2)<>STR(INET,9,2)
? CHR(7)
?
?
? 'YOU NEED TO UPDATE THIS CUSTOMER BEFORE PRINTING A STATEMENT'
?
?
WAIT
LOOP
ENDIF
USE B:CUST INDEX B:ACCT
FIND &X
STORE 0 TO A,B,C,D
STORE LEN(MTITLE) TO A
STORE (80-A)/2 TO A
STORE LEN(MADD1) TO B
STORE (80-B)/2 TO B
STORE LEN(MADD2) TO C
STORE (80-C)/2 TO C
STORE LEN(MPHONE) TO D
STORE (80-D)/2 TO D
SET DEVICE TO PRINT
SET PRINT ON
CLEAR
@ 1,35 SAY 'STATEMENT'
@ 2,A SAY MTITLE
@ 3,B SAY MADD1
@ 4,C SAY MADD2
@ 5,D SAY MPHONE
@ 6,36 SAY DATE()
@ 7,0 SAY ì
'=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=ì
-=-=-=-=-=-=-=-'
@ 8,0 SAY NAME
@ 8,51 SAY 'Amt last payment:'
@ 8,71 SAY LSTPAY
@ 9,0 SAY ADDRESS
@ 9,51 SAY 'Date last payment:'
@ 9,72 SAY NEWDATE
@ 10,0 SAY TRIM(CITY) +'  '+ STATE +'  '+ ZIP
@ 10,51 SAY 'Check number:'
@ 10,65 SAY CHKNO
@ 11,0 SAY PHONE
@ 11,51 SAY 'Unapplied Credits:'
@ 11,68 SAY UCREDIT
@ 12,0 SAY 'Account number:'
@ 12,17 SAY ACCT
@ 12,51 SAY 'Terms:'
@ 12,59 SAY TERMS
@ 13,0 SAY ì
'=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=ì
-=-=-=-=-=-=-=-'
@ 14,0 SAY 'Balance'
@ 14,7 SAY STR(NET,8,2)
IF OLD_30 < 0.01
@ 14,20 SAY 'Thank you for your prompt payment'
ENDIF
IF OLD_30 > 0.00
@ 14,17 SAY '>>>>>>>> Amount 30 days past due date:'
@ 14,54 SAY STR(OLD_30,8,2)
ENDIF
IF OLD_45 > 0.00
@ 14,65 SAY 'Over 45:'
@ 14,72 SAY STR(OLD_45,8,2)
ENDIF
IF OLD_60 > 0.00
@ 15,0 SAY '>>>>>>>>>>>>>>>>>>>>>>>>> Amount 60 days past due ì
date:'
@ 15,54 SAY STR(OLD_60,8,2)
ENDIF
@ 16,0 SAY ì
'=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=ì
-=-=-=-=-=-=-=-'
USE B:INV
REPO FORM B:STMT FOR ACCT=X .AND. .NOT. PAID NOEJECT TO PRINT
SET DEVICE TO SCREEN
EJECT
SET PRINT OFF
ENDDO
RETURN